********************************************************************************
*********************	Science March - Newspaper Coverage 	   *****************
**********************			- motta018@umn.edu -			****************
********************************************************************************

clear
cd "/Users/mmotta/Google Drive/March for Science/Data"
insheet using "LN Export 3.csv", names

* Keep Valid Dates

keep if date=="April 17, 2017 Monday" | ///
	date=="April 18, 2017 Tuesday" | ///
	date=="April 19, 2017 Wednesday" | ///
	date=="April 20, 2017 Thursday" | ///
	date=="April 21, 2017 Friday" | ///
	date=="April 22, 2017 Saturday" | ///
	date=="April 23, 2017 Sunday" | ///
	date=="April 24, 2017 Monday" | ///
	date=="April 25, 2017 Tuesday" 

* Make a Counter

gen x=1

* Collapse

collapse (sum) x, by(date)

* Make a Numeric Date

gen datenumeric=_n

* Graph
cd "/Users/mmotta/Google Drive/March for Science/Results"


graph twoway connected x daten, ///
	scheme(s1mono) xtitle("Date" " ") ytitle("# of Articles") ///
	mlcolor(black) mcolor(white) lcolor(black) ///
	ylab(0 25 50 75 100 125) ///
	xlab(1 "4/17" 2 "4/18" 3 "4/19 (W1)" 4 "4/20" 5 "4/21" 6 "4/22" 7 "4/23" ///
		8 "4/24 (W2)" 9 "4/25 (W2)", angle(-45) labsize(vsmall)) 
		
		graph export "news.pdf", replace
